home *** CD-ROM | disk | FTP | other *** search
/ L' Effet Pommier 3 / L'Effet Pommier - Volume 03.iso / Programmation / Alpha ƒ / Tcl / SystemCode / eudora.tcl < prev    next >
Text File  |  1996-01-15  |  23KB  |  849 lines
  1. #     <nowrap>
  2. # Built for Eudora
  3.  
  4. # Class message: A message
  5. # Elements:
  6. #     field by name
  7. # Properties:
  8. #     body  string  -- the body of the message
  9. #     priority  integer  -- the priority
  10. #     label  integer  -- the index of the label
  11. #     status  unread/already read/replied/forwarded/redirected/not sendable/sendable/queued/sent/never sent  -- the message status
  12. #     sender  string  -- the sender as appearing in the message summary
  13. #     date  string  [r/o]  -- the date as appearing in the message summary
  14. #     subject  string  -- the subject as appearing in the message summary
  15. #     size  integer  [r/o]  -- the size of the message
  16. #     outgoing  boolean  [r/o]  -- is the message is outgoing?
  17. #     signature  none/standard/alternate  -- which signature the message should have
  18. #     QP  boolean  -- is Eudora allowed to encode text?
  19. #     return receipt  boolean  -- is a return receipt is requested?
  20. #     wrap  boolean  -- should the text be wrapped when sent?
  21. #     tab expansion  boolean  -- should tabs get expanded to spaces?
  22. #     keep copy  boolean  -- should a copy should be kept after message is sent?
  23. #     preserve macintosh info  boolean  -- should Macintosh information always be sent with attachments?
  24. #     attachment encoding  AppleDouble/AppleSingle/BinHex/uuencode  -- the type of encoding to use for attachments
  25. #     show all headers  boolean  -- should all headers be visible?
  26. #     transliteration table  integer  -- the resource id of the transliteration table
  27. #     will be fetched  boolean  -- will the message be [re]fetched on next check?
  28. #     will be deleted  boolean  -- will the message be deleted from server on next check?
  29. # 
  30.  
  31. proc mailMenu {} {}
  32. proc dummyMail {} {}
  33.  
  34.  
  35. proc showEudoraMenuProc {flag} {
  36.     global showEudoraMenu mailMenu
  37.     
  38.     if {$showEudoraMenu} {
  39.         insertMenu $mailMenu
  40.     } else {
  41.         removeMenu $mailMenu
  42.     }
  43. }
  44.  
  45. #===============================================================================
  46. newModeVar Mail tossOnQueue        1    1
  47. newModeVar Mail    switchOnQueue    0    1
  48. newModeVar Mail    immediateSend    0    1
  49. #===============================================================================
  50. # Utility routines.
  51. proc eudoraFolder {} { nameObject euMF {'TEXT'()} [nullObject] }
  52. proc mailboxByName {name} { nameObject euMB "╥$name╙" [eudoraFolder] }
  53. proc mailboxByIndex {ind} { indexObject euMB $ind [eudoraFolder] }
  54. proc eudoraMessage {msg_id mailbox} { indexObject euMS $msg_id [mailboxByName $mailbox] }
  55. proc mailboxProperty {prop mailbox} { objectProperty 'CSOm' $prop [mailboxByName $mailbox] }
  56. proc messageProperty {prop msg_id mailbox} { objectProperty 'CSOm' $prop [eudoraMessage $msg_id $mailbox] }
  57.  
  58. # Get path-name for indicated mailbox
  59. proc mailboxPathName {name} {
  60.     extractPath [mailboxProperty euFS $name]
  61. }
  62.  
  63. proc mailboxPathIndex {ind} {
  64.     set res [objectProperty 'CSOm' euFS [mailboxByIndex $ind]]
  65.     return [extractPath $res]
  66. }
  67.  
  68. #===============================================================================
  69.  
  70.  
  71. proc checkMailPath {} {
  72.     global mailPath modifiedVars
  73.     return [checkRunning "Mail app:" "CSOm" mailPath]
  74. }
  75.  
  76. if {![info exists eudoraBoxes]} {
  77.     set eudoraBoxes {In Out}
  78. }
  79.  
  80. menu -n $mailMenu -p eudoraProc {
  81.     "<SbackgroundEudora"
  82.     "<Seudora"
  83.     "help"
  84.     "(-"
  85.     "/e<UnewMessage"
  86.     "cc"
  87.     "bcc"
  88.     "(-"
  89.     "/f<Usend"
  90.     "/g<Ureply"
  91.     "(-"
  92.     "updateMailboxLists"
  93.     "/h<UopenMailbox╔"
  94.     {menu -n open -p mailBoxProc -m {}}
  95.     "(-"
  96.     "/i<UmoveToTrash"
  97.     "/j<UmoveToMailbox╔"
  98.     {menu -n moveTo -p transferProc -m {}}
  99.     "(-"
  100.     {menu -n tellEudora -p eudoraProc {
  101.         "/k<UflushOutbox"
  102.         "/l<UcheckForMail"
  103.         "(-"
  104.         startNotifying
  105.         stopNotifying}}
  106.     {menu -n mailFlags -p mailFlagsProc {flushOnCheck alertOnIncoming}}
  107. }
  108. menu -n open -p mailBoxProc -m $eudoraBoxes
  109. menu -n moveTo -p transferProc -m $eudoraBoxes
  110.  
  111.  
  112. proc openMailbox {} {
  113.     global eudoraBoxes eudoraLastFolder modifiedVars
  114.     if {[info exists eudoraLastFolder]} {
  115.         set fold $eudoraLastFolder
  116.     } else {
  117.         set fold [lindex $eudoraBoxes 0]
  118.     }
  119.     set eudoraLastFolder [sPromptChoices "Open mailbox" $fold $eudoraBoxes]
  120.     mailBoxProc dummy $eudoraLastFolder
  121.     lappend modifiedVars eudoraLastFolder
  122. }
  123.  
  124.  
  125. proc moveToFolderProc {curr c} {
  126.     global eudoraBoxes
  127.     if {$c != "\t"} {return $c}
  128.     
  129.     set matches {}
  130.     foreach w $eudoraBoxes {
  131.         if {[string match "$curr*" $w]} {
  132.             lappend matches $w
  133.         }
  134.     }
  135.     if {![llength $matches]} {
  136.         beep
  137.     } else {
  138.         return [string range [largestPrefix $matches] [string length $curr] end]
  139.     }
  140.     return ""
  141. }
  142.  
  143.  
  144. proc moveToMailbox {} {
  145.     global eudoraLastFolder modifiedVars
  146.     
  147.     if {[info exists eudoraLastFolder]} {
  148.         set fold $eudoraLastFolder
  149.     } else {
  150.         set fold Trash
  151.     }
  152.     
  153.     set folder [statusPrompt -f "Move to ($fold): " moveToFolderProc]
  154.     if {[string length $folder]} {
  155.         doFolderMove $folder
  156.         set eudoraLastFolder $folder
  157.         lappend modifiedVars eudoraLastFolder
  158.     } else {
  159.         doFolderMove $fold
  160.     }
  161. }
  162.  
  163.  
  164. proc eudoraProc {menu item} {
  165.     global mailPath HOME
  166.     global mailMenu
  167.  
  168.     if {![info exists mailPath] || ![file exists $mailPath]} {
  169.         alertnote "Please set 'Eudora Path' via menu item\r \"Config:App Paths\"."
  170.         return
  171.     }
  172.     
  173.     if {![string match {*udora} $item]} {
  174.         checkRunning "Eudora" {CSOm} mailPath
  175.     }
  176.  
  177.     switch $item {
  178.         "eudora"        {launch -f $mailPath}
  179.         "backgroundEudora"        {launch $mailPath}
  180.         "help"            {edit -r "$HOME:Help:Eudora"}
  181.         "cc"            {eudoraCc}
  182.         "bcc"            {eudoraBcc}
  183.         "newMessage"    {mailNewMsg}
  184.         "reply"            {mailReplymsg}
  185.         "send"            {checkMailPath; mailSendCreatedMsg}
  186.         "flushOutbox"    {checkMailPath; mailFlushOut}
  187.         "checkForMail"    {checkMailPath; mailCheck}
  188.         "startNotifying" "checkMailPath; startNotifying"
  189.         "stopNotifying"    "checkMailPath; stopNotifying"
  190.         "moveToTrash"    {mailTrashmsg}
  191.         "Create New"    {eudoraNewMailbox}
  192.         "Delete"        {eudoraDeleteMailbox}
  193.         default            $item
  194.     }
  195. }
  196.  
  197. if {![info exists mailflushOnCheck]} {set mailflushOnCheck 1}
  198. if {![info exists mailalertOnIncoming]} {set mailalertOnIncoming 1}
  199. markMenuItem mailFlags flushOnCheck $mailflushOnCheck
  200. markMenuItem mailFlags alertOnIncoming $mailalertOnIncoming
  201.  
  202.  
  203. proc mailFlagsProc {menu flag} {
  204.     global mail$flag modifiedVars
  205.     set mail$flag [expr 1 - [set mail$flag]]
  206.     lappend modifiedVars mail$flag
  207.     markMenuItem mailFlags $flag [set mail$flag]
  208. }
  209.  
  210.  
  211. # Works, but eudora doesn't immediately flush mailboxes
  212. # proc directMailbox {menu folder} {
  213. #     global inboxMembers ALPHA eudoraBoxes modifiedVars
  214. #     global tileLeft tileTop tileWidth tileHeight errorHeight
  215. # 
  216. #     killMailboxWindow
  217. # 
  218. #     checkMailPath
  219. #     switchTo $ALPHA
  220. # 
  221. #     global trashedMsgs$folder
  222. #     set trashedMsgs$folder {}
  223. #     
  224. #     set res [AEBuild -r 'CSOm' core getd ---- "obj \{form:prop, want:type(prop), seld:type(euFS), from:obj \{form:indx, want:type(euMB), seld:[expr [lsearch $eudoraBoxes $folder] + 1], from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}" ]
  225. #     if {![regexp {╟(.*)╚} $res dummy fss]} return
  226. #     set name [file tail [set fname [specToPathName $fss]]]
  227. #     if {$name != $folder} {
  228. #         beep
  229. #         message "You need to update your mailbox lists."
  230. #         return
  231. #     }
  232. #     message $name
  233. # 
  234. #     set fd [open $fname]
  235. #     set text {}
  236. #     set ind 1
  237. #     set inboxMembers {}
  238. # 
  239. #     foreach ln [split [read $fd] "\r\n"] {
  240. #         if {[regexp {^From:} $ln dummy]} {
  241. #             regexp {[a-zA-Z0-9_.]+@[a-zA-Z0-9_.]+} $ln from
  242. #         } elseif {![regexp {^Subject: (.*)} $ln dummy subject]} continue
  243. # 
  244. #         if {[info exists from] && [info exists subject]} {
  245. # 
  246. #             set tag {}
  247. #             while {[lsearch $inboxMembers $from$tag] >= 0} {
  248. #                 if {![string length $tag]} {
  249. #                     set tag { <2>}
  250. #                 } else {
  251. #                     regexp {[0-9]+} $tag tag
  252. #                     set tag " <[expr $tag + 1]>"
  253. #                 }
  254. #             }
  255. # 
  256. #             append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t░$folder░$ind\r" $from$tag $subject]
  257. #             lappend inboxMembers $from$tag
  258. #             incr ind
  259. #             
  260. #             unset from; unset subject
  261. #         }
  262. #     }
  263. #     close $fd
  264. #     if {![string length $text]} {
  265. #         alertnote "No messages in '$folder'!"
  266. #         return
  267. #     }
  268. #     
  269. #     new -n "* MAILBOX '$folder' *" -g $tileLeft $tileTop $tileWidth $errorHeight
  270. #     global winModes
  271. #     set name [lindex [winNames] 0]
  272. #     changeMode [set winModes($name) Brws]
  273. # 
  274. #     insertText "(<cr> to go to message)\r-----\r$text"
  275. #     
  276. #     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  277. #     setWinInfo dirty 0
  278. #     setWinInfo read-only 1
  279. #     message ""
  280. # }
  281.  
  282. proc mailBoxProc {menu item} {
  283.     global inboxMembers ALPHA eudoraBoxes modifiedVars
  284.     global tileLeft tileTop tileWidth tileHeight errorHeight
  285.  
  286.     killMailboxWindow
  287.  
  288.     checkMailPath
  289.     switchTo $ALPHA
  290.  
  291.     global trashedMsgs$item
  292.     set trashedMsgs$item {}
  293.     
  294.     set inboxMembers {}
  295.     set text {}
  296.     set ind 1
  297.     foreach msg [mailSenders $item] {
  298.         set from [mailAddr [lindex $msg 0]]
  299.         set tag {}
  300.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  301.             if {![string length $tag]} {
  302.                 set tag { <2>}
  303.             } else {
  304.                 regexp {[0-9]+} $tag tag
  305.                 set tag " <[expr $tag + 1]>"
  306.             }
  307.         }
  308.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t░$item░$ind\r" "$from$tag" [lindex $msg 1]]
  309.         lappend inboxMembers $from$tag
  310.         incr ind
  311.     }
  312.     if {![string length $text]} {
  313.         alertnote "No messages in '$item'!"
  314.         return
  315.     }
  316.     
  317.     new -n "* MAILBOX '$item' *" -g $tileLeft $tileTop $tileWidth $errorHeight
  318.     global winModes
  319.     set name [lindex [winNames] 0]
  320.     changeMode [set winModes($name) Brws]
  321.  
  322.     insertText "(<cr> to go to message)\r-----\r$text"
  323.     
  324.     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  325.     setWinInfo dirty 0
  326.     setWinInfo read-only 1
  327.     message ""
  328. }
  329.  
  330. proc eudoraNewMailbox {} {
  331. }
  332.  
  333.  
  334. proc eudoraDeleteMailbox {} {
  335. }
  336.  
  337.  
  338. proc killMailboxWindow {} {
  339.     if {[set ind [lsearch [winNames] {*MAILBOX*}]] >= 0} {
  340.         set win [lindex [winNames] $ind]
  341.         bringToFront $win
  342.         killWindow
  343.     }
  344. }
  345.  
  346.  
  347. proc mailGotoMatch {} {
  348.     if {[regexp {░(.+)░([0-9]+)} [getText [lineStart [getPos]] [nextLineStart [getPos]]] dummy folder ind]} {
  349.         global trashedMsgs$folder
  350.         
  351.         set deleted 0
  352.         for {set i 1} {$i < $ind} {incr i} {
  353.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  354.                 incr deleted
  355.             }
  356.         }
  357.         mailOpen $folder [expr $ind - $deleted] $ind
  358.     }
  359. }
  360.  
  361.  
  362. proc mailAddr {name} {
  363.     if {![regexp {<(.*)>} $name dummy addr]} {
  364.         regexp {^[^ ]+} $name addr
  365.     }
  366.     return $addr
  367. }
  368.  
  369.  
  370. proc mailSenders {folder} {
  371.     set cnt [mailCountMsgs $folder]
  372.     set msgs {}
  373.     for {set i 1} {$i <= $cnt} {incr i} {
  374.         set subject {}
  375.         regexp {From: (.*)} [mailGetField from $folder $i] dummy from
  376.         regexp {Subject: (.*)} [mailGetField subject $folder $i] dummy subject
  377.         lappend msgs [list $from $subject]
  378.     }
  379.     return $msgs
  380. }    
  381.  
  382.  
  383. proc eudoraCc {} {
  384.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {cc:.*} 0]}]} {
  385.         goto [lindex $res 0]
  386.         endOfLine
  387.     } else {
  388.         beginningOfBuffer
  389.         nextLine
  390.         insertText "Cc: \r"
  391.         backwardChar
  392.     }
  393. }
  394.  
  395.  
  396. proc eudoraBcc {} {
  397.     if {![catch {set res [search -s -f 1 -r 1 -i 1 {bcc:.*} 0]}]} {
  398.         goto [lindex $res 0]
  399.         endOfLine
  400.     } else {
  401.         beginningOfBuffer
  402.         nextLine
  403.         insertText "Bcc: \r"
  404.         backwardChar
  405.     }
  406. }
  407.  
  408.  
  409. proc mailFlushOut {} {
  410.     global MailmodeVars
  411.     message "Telling Eudora to flush messages╔"
  412.  
  413.     AEBuild 'CSOm' CSOm eCon eSen bool(╟01╚) eChk bool(╟00╚)
  414.     message ""
  415. }
  416.  
  417.  
  418. proc mailCheck {} {
  419.     global MailmodeVars mailflushOnCheck
  420.     message "Told Eudora to check for new mail╔"
  421.  
  422.     AEBuild 'CSOm' CSOm eCon eSen bool(╟0$mailflushOnCheck╚) eChk bool(╟01╚)
  423. }
  424.  
  425.  
  426. proc mailReplymsg {} {
  427.     global inboxMembers
  428.  
  429.     set prefix "> "
  430.     set res [search -s -f 1 -r 1 {^>==} 0]
  431.     set header [getText 0 [lindex $res 0]]
  432.     
  433.     set from [mailGetFrom]
  434.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  435.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  436.  
  437.     regsub -all "\r" $body "\r$prefix" body
  438.     mailNewMsg $from "Re: $subject" "\r$prefix$body\r"
  439. }
  440.  
  441. proc transferProc {menu item} {
  442.     doFolderMove $item
  443. }
  444.  
  445.  
  446. proc mailTrashmsg {} {
  447.     doFolderMove Trash
  448. }
  449.  
  450. proc doFolderMove {toFolder} {
  451.     # Is this a summary or msg window?
  452.     if {[regexp "MAILBOX" [lindex [winNames] 0]]} {
  453.         if {![regexp {░(.*)░([0-9]+)} [getText [getPos] [nextLineStart [getPos]]] dummy folder orig]} {
  454.             beep
  455.             return
  456.         }
  457.         if {$toFolder == $folder} return
  458.         global trashedMsgs$folder
  459.  
  460.         set deleted 0
  461.         for {set i 1} {$i < $orig} {incr i} {
  462.             if {[lsearch [set trashedMsgs$folder] $i] >= 0} {
  463.                 incr deleted
  464.             }
  465.         }
  466.         set number [expr $orig - $deleted]
  467.         set summary 1
  468.     } else {
  469.         set pos [lindex [search -f 1 -r 1 {^Msg} 0] 0]
  470.         set text [getText $pos [nextLineStart $pos]]
  471.         regexp {"([^"]+)" \(([0-9]+)\).*"([^"]+)"} $text dummy number orig folder
  472.         if {$toFolder == $folder} return
  473.         set summary 0
  474.  
  475.         global trashedMsgs$folder
  476.     }
  477.     
  478.     message "Moving msg $number ($orig) of folder '$folder' to '$toFolder'"
  479.     moveMsg $number $folder $toFolder
  480.     if {!$summary} killWindow
  481.  
  482.     lappend trashedMsgs$folder $orig
  483.     
  484.     # Find summary info and delete it
  485.     set win [lindex [winNames] 0]
  486.     if {[regexp "MAILBOX" $win]} {
  487.         setWinInfo read-only 0
  488.     
  489.         set inds [search -f 1 -r 1 "░$folder░$orig\$" 0]
  490.         set pos [lindex $inds 0]
  491.         deleteText [lineStart $pos] [nextLineStart $pos]
  492.     
  493.         if {[string length [search -n -f 1 -r 0 {░} 0]]} {
  494.             setWinInfo dirty 0
  495.             setWinInfo read-only 1
  496.     
  497.             nextLine
  498.             upBrowse
  499.         } else {
  500.             setWinInfo dirty 0
  501.             killWindow
  502.         }
  503.     }
  504. }
  505.  
  506.     
  507. proc mailGetFrom {} {
  508.     set res [search -s -f 1 -r 1 {>==} 0]
  509.     set header [getText 0 [lindex $res 0]]
  510.     if {[regexp {From: ([^\r]*)} $header dummy from]} {
  511.         return [mailAddr $from]
  512.     }
  513.     error "No from line"
  514. }
  515.  
  516.     
  517.  
  518. proc mailSendCreatedMsg {} {
  519.     global MailmodeVars
  520.     
  521.     set name [checkMailPath]
  522.     set res [search -s -f 1 -r 0 {>==text follows this line==<} 0]
  523.     set header [getText 0 [lindex $res 0]]
  524.     
  525.     if {![regexp {To: ([^\r]*)} $header dummy to]} {set to ""}
  526.     if {![regexp {Cc: ([^\r]*)} $header dummy cc]} {set cc ""}
  527.     if {![regexp {Subject: ([^\r]*)} $header dummy subject]} {set subject ""}
  528.  
  529.     set body [getText [expr [lindex $res 1] + 1] [maxPos]]
  530.     
  531.     mailCreateMsg
  532.     mailSetField to $to
  533.     mailSetField cc $cc
  534.     mailSetField subject $subject
  535.     mailSetField "" $body
  536.     
  537.     if {$MailmodeVars(tossOnQueue)} {
  538.         setWinInfo dirty 0
  539.         killWindow
  540.     }
  541.  
  542.     mailQueueLast
  543.  
  544.     if {$MailmodeVars(switchOnQueue)} {
  545.         switchTo $name
  546.     }
  547.  
  548.     if {$MailmodeVars(immediateSend)} {
  549.         mailFlushOut
  550.     } else {
  551.         message "Message queued╔"
  552.     }
  553. }
  554.  
  555.     
  556. proc mailNewMsg {{to ""} {subject ""} {body ""}} {
  557.     new -n "New Mail"
  558.     global winModes
  559.     set name [lindex [winNames] 0]
  560.     changeMode [set winModes($name) Mail]
  561.  
  562.     insertText "To: $to\rSubject: $subject\r>==text follows this line==<\r$body"
  563.     setWinInfo dirty 0
  564.     goto 0
  565.     centerRedraw
  566.     mailTab
  567. }
  568.  
  569.  
  570. proc mailTab {} {
  571.     global mailKeywords
  572.     if {[catch {search -s -f 1 -r 1 -i 1 "([join $mailKeywords {|}]|^>)" [getPos]} res]} {
  573.         insertText "\t"
  574.         return
  575.     }
  576.     if {[lookAt [lindex $res 0]] == ">"} {
  577.         select [nextLineStart [lindex $res 1]] [maxPos]
  578.     } else {
  579.         goto [expr [lindex $res 1] + 1]
  580.         endLineSelect
  581.     }
  582. }
  583. bind '\t'                         mailTab Mail
  584.  
  585.  
  586. proc mailOpen {folder i originalNum} {
  587.     global tileLeft tileTop tileHeight trashedMsgs$folder
  588.     
  589.     set from [mailGetField From $folder $i]
  590.     set to [mailGetField To $folder $i]
  591.     set subject [mailGetField Subject $folder $i]
  592.     set sender [mailGetField Sender $folder $i]
  593.     set cc [mailGetField cc $folder $i]
  594.     set contents [mailGetField "" $folder $i]
  595.     
  596. #===============================================================================
  597.     global tileHeight tileWidth tileTop tileLeft errorHeight errorDisp
  598.     set top $tileTop
  599.     set geo [getGeometry]
  600.     if {([lindex $geo 0] != $tileLeft) || ([lindex $geo 1] != $top) || ([lindex $geo 2] != $tileWidth) || ([lindex $geo 3] != $errorHeight) } {
  601.         moveWin $tileLeft $top
  602.         sizeWin $tileWidth $errorHeight
  603.     }
  604.     set mar 28
  605.     incr top [expr $errorHeight + $mar]
  606. #===============================================================================
  607.     new -n "MAIL" -g $tileLeft $top $tileWidth [expr $errorDisp - 5]
  608.  
  609.     global winModes
  610.     set name [lindex [winNames] 0]
  611.     changeMode [set winModes($name) Mail]
  612.  
  613.     set text {}
  614.     if {[string length $subject]} {append text "$subject\r"}
  615.     if {[string length $to]} {append text "$to\r"}
  616.     if {[string length $from]} {append text "$from\r"}
  617.     if {[string length $cc]} {append text "$cc\r"}
  618.     if {[string length $sender]} {append text "$sender\r"}
  619.     append text "Msg \"$i\" ($originalNum) of mailbox \"$folder\"     Reply     Trash\r"
  620.     insertText "${text}>===============================================================================
  621. $contents
  622. "
  623.     goto 0
  624.     goto [lindex [search -f 1 -r 1 {^Msg "} 0] 0]
  625.     set pos [getPos]
  626.     regexp -indices {([0-9]+).*mailbox "(.+)".*(Reply).*(Trash)} [getText $pos [nextLineStart $pos]] dummy num fold rep tra
  627.     colorSelectPos [expr $pos + [lindex $num 0]] [expr 1 + $pos + [lindex $num 1]] bold 12
  628.     colorSelectPos [expr $pos + [lindex $fold 0]] [expr 1 +$pos + [lindex $fold 1]] bold 12
  629.     hyperSelectPos [expr $pos + [lindex $rep 0]] [expr 1 +$pos + [lindex $rep 1]] "mailReplymsg"
  630.     hyperSelectPos [expr $pos + [lindex $tra 0]] [expr 1 +$pos + [lindex $tra 1]] "mailTrashmsg"
  631.  
  632.     goto 0
  633.     setWinInfo dirty 0
  634.     setWinInfo read-only 1
  635.     centerRedraw
  636. }
  637.  
  638. proc colorSelectPos {from to ind ind2} {
  639.     insertColorEscape $from $ind
  640.     insertColorEscape $to $ind2
  641. }
  642.  
  643. proc hyperSelectPos {from to text} {
  644.     if {$from == $to} {
  645.         beep
  646.         return
  647.     }
  648.     insertColorEscape $from 3
  649.     insertColorEscape $from 15 $text
  650.     insertColorEscape $to 12
  651.     insertColorEscape $to 0
  652. }
  653.  
  654. proc mailFixMenus {} {
  655.     global mailMenu
  656.     
  657.     set ins {}
  658.     set outs {}
  659.     
  660.     set cnt [mailCountMsgs in]
  661.     for {set i 1} {$i <= $cnt} {incr i} {
  662.         lappend ins [mailGetField from in $i]
  663.     }
  664.     menu -n in {}
  665.     foreach item $ins {
  666.         addMenuItem -l "" in $item
  667.     }
  668.     
  669.     set cnt [mailCountMsgs out]
  670.     for {set i 1} {$i <= $cnt} {incr i} {
  671.         lappend outs [mailGetField from out $i]
  672.     }
  673.     menu -n out {}
  674.     foreach item $outs {
  675.         addMenuItem -l "" out $item
  676.     }
  677. }
  678.  
  679.  
  680. # make message at end of mailbox "out" of mail folder ""
  681. proc mailCreateMsg {} {
  682.     createThingAtEnd 'CSOm' [mailboxByName Out] euMS
  683. }
  684.  
  685.  
  686. # Move msg w/ specified index between folders, including to Trash.
  687. proc moveMsg {msg infolder outfolder} {
  688.     AEBuild -r 'CSOm' core move {----} "obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:╥$infolder╙, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}" {insh} "insl\{kobj:obj \{form:name, want:type(euMB), seld:╥$outfolder╙, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}, kpos:end \}"
  689. }
  690.  
  691.  
  692. # set field "fld" of message 0 to "to"
  693. proc mailSetField {fld to} {
  694.     AEBuild -r 'CSOm' core setd {----} "obj \{form:name, want:type(euFd), seld:╥$fld╙, from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data "╥$to╙"
  695. }
  696.  
  697. proc mailGetField {field folder msg} {
  698.     if {[catch {getObjectData 'CSOm' euFd $field [eudoraMessage $msg $folder]} res]} {
  699.         return ""
  700.     } else {
  701.         return $res
  702.     }
  703. }
  704.  
  705. # obj {want:type('prop'), from:obj {form:indx, want:type(euMS), seld:$msg, from:obj {form:name, want:type(euMB), seld:╥$folder╙, from:obj {form:name, want:type(euMF), seld:'TEXT'(), from:'null'()}}}, form:'prop', seld:type('euST')}
  706.  
  707. proc mailMsgStatus {folder msg} {
  708.     if {[catch {AEBuild -r 'CSOm' core getd {----} "obj \{want:type('prop'), from:obj \{form:indx, want:type(euMS), seld:$msg, from:obj \{form:name, want:type(euMB), seld:╥$folder╙, from:obj \{form:name, want:type(euMF), seld:'TEXT'(), from:'null'()\}\}\}, form:'prop', seld:type('euST')\}"} text]} {
  709.         return ""
  710.     }
  711.     set from [string first "╥" $text]
  712.     set to [string first "╙" $text]
  713.     return [string range $text [expr $from + 1] [expr $to - 1]]
  714. }
  715.  
  716. proc mailQueueLast {} {
  717.     AEBuild -r 'CSOm' CSOm eQue ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}}
  718. }
  719.  
  720. # CSOm\eAtc{'----':obj {form:indx, want:type(euMS), seld:1, from:'null'()}, eDcl:[fss (╟486172643A4465736B746F7020466F6C6465723A62756773╚)]}
  721. proc mailAttachmentDoesntWork {name} {
  722.     AEBuild -r 'CSOm' CSOm eAtc ---- {obj {form:indx, want:type(euMS), seld:1, from:'null'()}} eDcl [makeAlis $name]
  723. }
  724.  
  725. # core\setd{'----':obj {form:prop, want:type(prop), seld:type(euPY), from:obj {form:indx, want:type(euMS), seld:1, from:'null'()}}, data:1}
  726. proc mailSetNumberProperty {prop to} {
  727.     AEBuild -r 'CSOm' core setd ---- "obj \{form:prop, want:type(prop), seld:type($prop), from:obj \{form:indx, want:type(euMS), seld:1, from:'null'()\}\}" data $to
  728. }    
  729.  
  730.  
  731. proc mailCountMsgs {mbox} {
  732.     return [countObjects 'CSOm' [mailboxByName "$mbox"]  euMS]
  733. }
  734.  
  735. proc mailCountMailboxes {} {
  736.      return [countObjects 'CSOm' [eudoraFolder] euMB]
  737. }
  738.     
  739.  
  740. proc updateMailboxLists {} {
  741.     set num [mailCountMailboxes]
  742.     for {set i 1} {$i <= $num} {incr i} {
  743.         set name [file tail [mailboxPathIndex $i]]
  744.         message $name
  745.         lappend boxes $name
  746.     }
  747.     
  748.     global eudoraBoxes modifiedVars
  749.     lappend modifiedVars eudoraBoxes
  750.     set eudoraBoxes $boxes
  751.     menu -n open -p mailBoxProc -m $eudoraBoxes
  752.     menu -n moveTo -p transferProc -m $eudoraBoxes
  753.     message "done."
  754. }
  755.  
  756.  
  757. #===============================================================================
  758.  
  759. eventHandler CSOm eNot "eudoraHandler"
  760.  
  761. # a sample 'msgs': obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:╥In╙}, form:indx, seld:18}, obj {want:type(euMS), from:obj {want:type(euMB), from:obj {want:type(euMF), from:'null'(), form:name, seld:'TEXT'()}, form:name, seld:╥In╙}, form:indx, seld:19}
  762. proc eudoraHandler {it} {
  763.     global blah mailalertOnIncoming
  764.     message ""
  765.     if {[regexp {eWHp:wArv.*\[(obj.*)\], &repq} $it dum1 msgs]} {
  766.         set ids [getMsgIDs $msgs]
  767.         if {$mailalertOnIncoming} {
  768.             mailBrowser In $ids
  769.             beep; beep
  770.         }
  771.     }
  772. }
  773.  
  774.  
  775. proc mailBrowser {folder ids} {
  776.     global inboxMembers ALPHA
  777.     global tileLeft tileTop tileWidth tileHeight errorHeight
  778.  
  779.     checkMailPath
  780.     switchTo $ALPHA
  781.  
  782.     global trashedMsgs$folder
  783.     set trashedMsgs$folder {}
  784.     
  785.     set inboxMembers {}
  786.     set text {}
  787.  
  788.     foreach id $ids {
  789.         regexp {From: (.*)} [mailGetField from $folder $id] dummy from
  790.         set from [mailAddr $from]
  791.         set subject {}
  792.         regexp {Subject: (.*)} [mailGetField subject $folder $id] dummy subject
  793.         set tag {}
  794.         while {[lsearch $inboxMembers $from$tag] >= 0} {
  795.             if {![string length $tag]} {
  796.                 set tag { <2>}
  797.             } else {
  798.                 regexp {[0-9]+} $tag tag
  799.                 set tag " <[expr $tag + 1]>"
  800.             }
  801.         }
  802.         append text [format "%-40s : %s\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t\t░In░$id\r" "$from$tag" $subject]
  803.         lappend inboxMembers $from$tag
  804.     }
  805.     if {![string length $text]} {
  806.         alertnote "No messages!"
  807.         return
  808.     }
  809.     
  810.     if {[set ind [lsearch [winNames] "*Incoming MAILBOX*"]] >= 0} {
  811.         bringToFront [lindex [winNames] $ind]
  812.         setWinInfo read-only 0
  813.         endOfBuffer
  814.         insertText $text
  815.     } else {
  816.         killMailboxWindow
  817.         new -n "* Incoming MAILBOX *" -g $tileLeft $tileTop $tileWidth $errorHeight
  818.         global winModes
  819.         set name [lindex [winNames] 0]
  820.         changeMode [set winModes($name) Brws]
  821.     
  822.         insertText "(<cr> to go to message)\r-----\r$text"
  823.     }
  824.     select [nextLineStart [nextLineStart 0]] [nextLineStart [nextLineStart [nextLineStart 0]]]
  825.     setWinInfo dirty 0
  826.     setWinInfo read-only 1
  827.     message ""
  828. }
  829.  
  830.  
  831. proc getMsgIDs {text} {
  832.     if {[regexp -indices {seld:([0-9]+)} $text dummy ind]} {
  833.         return [concat [string range $text [lindex $ind 0] [lindex $ind 1]] [getMsgIDs [string range $text [lindex $ind 1] end]]]
  834.     }
  835. }
  836.  
  837. proc startNotifying {} {
  838.     global HOME ALPHA quitHooks
  839.     
  840.     AEBuild 'CSOm' CSOm nIns ---- [makeAlis "$HOME:$ALPHA"]
  841. #     lappend quitHooks stopNotifying
  842. }
  843.  
  844. proc stopNotifying {} {
  845.     global HOME ALPHA
  846.     
  847.     AEBuild 'CSOm' CSOm nRem ---- [makeAlis "$HOME:$ALPHA"]
  848. }
  849.